unit common;
{$ifdef FPC}
{$mode delphi}
{$endif}
interface
uses sdl;
const
//events
Event_MainLoop=SDL_USEREVENT+1;
    Event_ScriptEngine=SDL_USEREVENT+2;
EVENT_INPUTACTION = SDL_USEREVENT+3;
EVENT_GAMEACTION = SDL_USEREVENT+4;

    procedure SDLCheck(const code:integer; mess:PChar);
implementation
uses CoreI;
    procedure SDLCheck(const code:integer; mess:PChar);
begin
if code = -1 then Core_Error(PChar(mess +': ' + SDL_GetError()), ECore_Main);
end;
end.
